perm filename MAS.INI[MAC,LSP] blob sn#581973 filedate 1981-04-28 generic text, type C, neo UTF8
COMMENT āŠ—   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	(comment bps 20000. core 80.)
C00004 ENDMK
CāŠ—;
(comment bps 20000. core 80.)
(progn
 (fasload emaclsp)
(setq form
 ''(a list of
veryveryveryveryveryveryveryveryverylonglonglonglonglonglonglonglong
veryveryveryveryveryveryveryveryverylonglonglonglonglonglonglonglong
veryveryveryveryveryveryveryveryverylonglonglonglonglonglonglonglong
veryveryveryveryveryveryveryveryverylonglonglonglonglonglonglonglong
veryveryveryveryveryveryveryveryverylonglonglonglonglonglonglonglong
veryveryveryveryveryveryveryveryverylonglonglonglonglonglonglonglong
veryveryveryveryveryveryveryveryverylonglonglonglonglonglonglonglong
veryveryveryveryveryveryveryveryverylonglonglonglonglonglonglonglong
atoms))

(setq form1 '(do () (())))
(defun master ()
       (terpri)(princ '|Slave = |)
       (init (read)))
(defun tsc () (em:send-control-char 302 -em:jobnum-))
(defun ts1 () (em:force-print '(+ 1 2) -em:sfa-))
(defun ts2 () (em:force-print form -em:sfa-))
(defun ts3 () ((lambda (breakp)
		       (em:force-print form1 -em:sfa-))
	       t))
(master))